home *** CD-ROM | disk | FTP | other *** search
/ SGI O2 Out of Box Experience 2.2 / SGI O2 Out of Box Experience 2.2.iso / SysTour / clean_html.pl < prev    next >
Perl Script  |  1998-05-26  |  344b  |  27 lines
  1. #!/usr/bin/perl5
  2.  
  3. $^I=".bak";
  4.  
  5. while (<>) {
  6.     next if /<!--\s*WEBMAGIC.*-->\s*$/;
  7.     &remove_SGI_stuff;
  8.     &fix_paths;
  9.     &remove_comments;
  10.     print;
  11. }
  12.  
  13. sub remove_SGI_stuff {
  14.     s#SGI_FULLPATH="[\w/\-\.]*"##g;
  15.     s/SGI_SETHEIGHT//g;
  16.     s/SGI_SETWIDTH//g;
  17. }
  18.  
  19. sub fix_paths {
  20.     s#/usr/ns-home/docs/monkey/##g;
  21. }
  22.  
  23. sub remove_comments {
  24.     s/<!--\s*.*\s*-->//g;
  25. }
  26.  
  27.